perm filename SCAN.OLD[NEW,LCS] blob sn#428463 filedate 1979-03-21 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	LNEND:	0	SEE FORTR. TEXT IN WORDS.F4
C00003 ENDMK
CāŠ—;
LNEND:	0	;SEE FORTR. TEXT IN WORDS.F4
	MOVE 0,LST    		; *   SCX+7
	MOVE 1,SCX+=9 		; ;
;;	MOVE 2,SCN+4  		; /
	MOVE 2,LSL    		; /
	MOVEI 3,=71
L2901:	CAME 2,ALF(3)
	JRST L2903
	MOVEM 1,ALF(3)
	JRA 16,(16)
L2903:	CAME 1,ALF(3)
	JRST L2902
	MOVEM 0,ALF(3)
	JRA 16,(16)
L2902:	SKIPLE 3
	SOJA 3,L2901
	JRA 16,(16)